home *** CD-ROM | disk | FTP | other *** search
/ Chip 2011 November / CHIP_2011_11.iso / Programy / Inne / Gry / Carnage_Contest / scripts / CC Original / movement / Experimental Drugs.lua < prev    next >
Text File  |  2010-09-28  |  3KB  |  97 lines
  1. --------------------------------------------------------------------------------
  2. -- Weapon Experimental Drugs
  3. -- Original Carnage Contest Weapon
  4. -- Script by DC, February 2010, www.UnrealSoftware.de
  5. --------------------------------------------------------------------------------
  6.  
  7. -- Setup Tables
  8. if cc==nil then cc={} end
  9. cc.expdrugs={}
  10.  
  11. -- Load & Prepare Ressources
  12. cc.expdrugs.gfx_wpn=loadgfx("weapons/expdrugs.png")                        -- Weapon Image
  13. setmidhandle(cc.expdrugs.gfx_wpn)
  14. cc.expdrugs.sfx_heal=loadsfx("selfhealing.ogg")                            -- Heal
  15. cc.expdrugs.sfx_fail=loadsfx("expdrugs.ogg")                            -- Fail
  16.  
  17. --------------------------------------------------------------------------------
  18. -- Weapon: Experimental Drugs
  19. --------------------------------------------------------------------------------
  20.  
  21. cc.expdrugs.id=addweapon("cc.expdrugs","Experimental Drugs",cc.expdrugs.gfx_wpn,0,0)    -- Add Weapon (0 uses)
  22.  
  23. function cc.expdrugs.draw()                                                -- Draw
  24.     if (weapon_shots==0) then
  25.         setblend(blend_alpha)
  26.         setalpha(1)
  27.         setcolor(255,255,255)
  28.         drawinhand(cc.expdrugs.gfx_wpn,8,2,0.4)
  29.     end
  30. end
  31.  
  32. function cc.expdrugs.attack(attack)                                        -- Attack
  33.     if (weapon_shots<=0) then
  34.         if (attack==1) then
  35.             -- No more weapon switching!
  36.             useweapon(0)
  37.             weapon_shots=weapon_shots+1
  38.             randomseed(getframe()*1415)
  39.             if (random(1,100)<=60) then
  40.                 -- Heal
  41.                 playerheal(0,100)
  42.                 playerstate(0,state_poisoned,0)
  43.                 -- Effect
  44.                 playsound(cc.expdrugs.sfx_heal)
  45.                 x=getplayerx(0)
  46.                 y=getplayery(0)+3
  47.                 particle(p_muzzle,x,y)
  48.                 particlesize(1,1)
  49.                 particlecolor(255,0,0)
  50.                 particlealpha(1.0)
  51.                 particlefadealpha(0.01)
  52.                 particle(p_muzzle,x,y)
  53.                 particlesize(1,2)
  54.                 particlecolor(255,0,0)
  55.                 particlealpha(1.0)
  56.                 particlefadealpha(0.02)
  57.                 particlerotation(0)
  58.                 for j=1,15,1 do
  59.                     particle(p_flare,x-10.0+math.random()*20.0,y+math.random()*10.0)
  60.                     particlesize(3.0,3.0)
  61.                     particlecolor(255,0,0)
  62.                     particlespeed(0,math.random(2,15)*-0.1)
  63.                     particlefadealpha(0.01)
  64.                 end
  65.             else
  66.                 -- Damage
  67.                 health=getplayerhealth(0)
  68.                 playerdamage(0,health-1)
  69.                 playerstate(0,state_poisoned,1)
  70.                 -- Effect
  71.                 playsound(cc.expdrugs.sfx_fail)
  72.                 x=getplayerx(0)
  73.                 y=getplayery(0)+3
  74.                 particle(p_muzzle,x,y)
  75.                 particlesize(1,1)
  76.                 particlecolor(0,255,0)
  77.                 particlealpha(1.0)
  78.                 particlefadealpha(0.01)
  79.                 particle(p_muzzle,x,y)
  80.                 particlesize(1,2)
  81.                 particlecolor(0,255,0)
  82.                 particlealpha(1.0)
  83.                 particlefadealpha(0.02)
  84.                 particlerotation(0)
  85.                 for j=1,15,1 do
  86.                     particle(p_flare,x-10.0+math.random()*20.0,y+math.random()*10.0)
  87.                     particlesize(3.0,3.0)
  88.                     particlecolor(0,255,0)
  89.                     particlespeed(0,math.random(2,15)*-0.1)
  90.                     particlefadealpha(0.01)
  91.                 end
  92.             end
  93.             -- End Turn
  94.             endturn()
  95.         end
  96.     end
  97. end